home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / appshell / appabout.frm next >
Text File  |  1995-09-06  |  5KB  |  162 lines
  1. VERSION 2.00
  2. Begin Form AppAbout 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About App Shell"
  5.    ClientHeight    =   2505
  6.    ClientLeft      =   1425
  7.    ClientTop       =   1425
  8.    ClientWidth     =   3735
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "System"
  12.    FontSize        =   9.75
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   2910
  16.    Icon            =   APPABOUT.FRX:0000
  17.    Left            =   1365
  18.    LinkMode        =   1  'Source
  19.    LinkTopic       =   "Form2"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   2505
  23.    ScaleWidth      =   3735
  24.    Top             =   1080
  25.    Width           =   3855
  26.    Begin CommandButton Cmd_OK 
  27.       Cancel          =   -1  'True
  28.       Caption         =   "OK"
  29.       Default         =   -1  'True
  30.       FontBold        =   -1  'True
  31.       FontItalic      =   0   'False
  32.       FontName        =   "System"
  33.       FontSize        =   9.75
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       Height          =   420
  37.       Left            =   1425
  38.       TabIndex        =   0
  39.       Top             =   1905
  40.       Width           =   930
  41.    End
  42.    Begin PictureBox Pic_HorizontalLine 
  43.       BackColor       =   &H00000000&
  44.       Height          =   45
  45.       Left            =   330
  46.       ScaleHeight     =   15
  47.       ScaleWidth      =   2940
  48.       TabIndex        =   4
  49.       Top             =   975
  50.       Width           =   2970
  51.    End
  52.    Begin PictureBox Pic_ApplicationIcon 
  53.       AutoSize        =   -1  'True
  54.       BorderStyle     =   0  'None
  55.       Height          =   480
  56.       Left            =   315
  57.       Picture         =   APPABOUT.FRX:0302
  58.       ScaleHeight     =   480
  59.       ScaleWidth      =   480
  60.       TabIndex        =   3
  61.       Top             =   285
  62.       Width           =   480
  63.    End
  64.    Begin Label Lbl_InfoValues 
  65.       FontBold        =   -1  'True
  66.       FontItalic      =   0   'False
  67.       FontName        =   "System"
  68.       FontSize        =   9.75
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       Height          =   630
  72.       Left            =   1890
  73.       TabIndex        =   6
  74.       Top             =   1170
  75.       Width           =   1455
  76.    End
  77.    Begin Label Lbl_Info 
  78.       FontBold        =   -1  'True
  79.       FontItalic      =   0   'False
  80.       FontName        =   "System"
  81.       FontSize        =   9.75
  82.       FontStrikethru  =   0   'False
  83.       FontUnderline   =   0   'False
  84.       Height          =   630
  85.       Left            =   330
  86.       TabIndex        =   5
  87.       Top             =   1155
  88.       Width           =   1470
  89.    End
  90.    Begin Label Label1 
  91.       Caption         =   "Copyright 1991"
  92.       FontBold        =   -1  'True
  93.       FontItalic      =   0   'False
  94.       FontName        =   "System"
  95.       FontSize        =   9.75
  96.       FontStrikethru  =   0   'False
  97.       FontUnderline   =   0   'False
  98.       Height          =   255
  99.       Left            =   975
  100.       TabIndex        =   7
  101.       Top             =   600
  102.       Width           =   1980
  103.    End
  104.    Begin Label Lbl_Version 
  105.       Caption         =   "Version 1.00"
  106.       FontBold        =   -1  'True
  107.       FontItalic      =   0   'False
  108.       FontName        =   "System"
  109.       FontSize        =   9.75
  110.       FontStrikethru  =   0   'False
  111.       FontUnderline   =   0   'False
  112.       Height          =   255
  113.       Left            =   975
  114.       TabIndex        =   1
  115.       Top             =   375
  116.       Width           =   1980
  117.    End
  118.    Begin Label Lbl_Company 
  119.       Caption         =   "by Jim Presley"
  120.       FontBold        =   -1  'True
  121.       FontItalic      =   0   'False
  122.       FontName        =   "System"
  123.       FontSize        =   9.75
  124.       FontStrikethru  =   0   'False
  125.       FontUnderline   =   0   'False
  126.       Height          =   270
  127.       Left            =   975
  128.       TabIndex        =   2
  129.       Top             =   135
  130.       Width           =   2340
  131.    End
  132. End
  133. DefInt A-Z
  134.  
  135. Sub cmd_OK_Click ()
  136.  
  137.     Unload AppAbout
  138.  
  139. End Sub
  140.  
  141. Sub Form_Load ()
  142.   
  143.   Dim WinFlags As Long
  144.   Dim Mode As String, Processor As String
  145.  
  146.   Remove_Items_From_SysMenu AppAbout
  147.   Place_DialogBox_in_Form AppAbout, AppMain
  148.   
  149.   ' Get current Windows configuration
  150.   '
  151.   WinFlags = GetWinFlags()
  152.  
  153.   ' Display configuration values in Lbl_Info.Caption and Lbl_InfoValues.Caption
  154.   ' (NOTE: CRLF variable causes a line break in a labels caption)
  155.   '
  156.   Lbl_Info.Caption = "Mode:" + CRLF + "Free Memory:"
  157.   If WinFlags And WF_ENHANCED Then Mode = "386 Enhanced" Else Mode = "Standard"
  158.   Lbl_InfoValues.Caption = Mode + CRLF + Format$(GetFreeSpace(0) \ 1024) + " KB"
  159.  
  160. End Sub
  161.  
  162.